home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / DIREDDOS.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  14 lines
  1. ;;; compiled by @win386 on Mon Mar 15 23:02:55 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/dired/direddos.el
  3. ;;; emacs version 19.4 Lucid.
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└└└└└└╟╚Mê╔╩Mê╦╠Mê═╬Mê╧╨Mê╤╥Mê╙╘Mê╒╓Mç" [nil dired-chmod-program dired-chgrp-program dired-chown-program dired-ls-program dired-compress-program dired-uncompress-program sort-files-by-modified-time #[(files) "└    ┬\"ç" [sort files (lambda (a b) (let ((aa (car (nth 5 a))) (ab (car (cdr (nth 5 a)))) (ba (car (nth 5 b))) (bb (car (cdr (nth 5 b))))) (cond ((> aa ba) t) ((= aa ba) (> ab bb)) (t nil))))] 3] time-string-to-time-list #[(date) "└┴\n\"\n─ö─òO╞\n╟ö╟òO!╔\n╩ö╩òO╦\"A ╞\n═ö═òO!ë F-ç" [string-match " \\([A-Z][a-z][a-z]\\) *\\([0-9]*\\) \\([0-9:]*\\) \\([0-9]*\\)$" date garbage 3 time string-to-int 2 day assoc 1 (("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)) month 4 year] 5] file-modified-time-string #[(tem) "└┴\n!!└─ !╞ A@SH @@W½º A@A@W½₧╚ 8╚8W½ò╔ 8╔8Ö½î╩╦╚ 8 @$¬Ä╩╠╚ 8╔ 8═╬O$+ç" [time-string-to-time-list time-to-string tem mtime current-time-string current-time ["Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"] month 2 3 format "%s %02d %5d" "%s %02d %s" 0 5] 7] wildcard-to-regexp #[(path) "└┴ë\n├─#┼╞#╟Qç" ["^" replace-letter path "." "\\." "*" ".*" "$"] 6] list-directory-file-attributes #[(path &optional wildcard) "½å┴┬ !!½à─ !¬â┼ !╟╚!!    ╩ ╩     ½ª    @ ½ç═ \"½Å ╬ P!B B     Aë    ¼Z ,ç" [wildcard wildcard-to-regexp file-name-nondirectory path file-name-directory file-name-as-directory dirname reverse directory-files files nil file place string-match file-attributes] 5] file-attributes-to-string #[(attributes) "└┴┬ 8 A@─ ┼ 8╞╟ 8!&ç" [format "%s %3d %-8s %8d %s %s" 8 attributes user-login-name 7 file-modified-time-string 4] 9] dos-dired-ls #[(file &optional switches wildcard full-directory-p) "¼é    \n½å├─\"½â½╘╞\"╔\n╔ ├╠\"½å═!├╬\"½å╧!╨╤G\"cê¡í@@\n@A ╥ !╙\nQ╘▒êAë¼`╔+ç╒! ╥ !╙╓!Q╘▒)ç" [switches dired-listing-switches full-directory-p string-match "-.*d.*" wildcard list-directory-file-attributes file place nil filename attributes "-.*t.*" sort-files-by-modified-time "-.*r.*" reverse format "total %d file(s)\n" file-attributes-to-string " " 10 file-attributes file-name-nondirectory] 5] replace-letter #[(str old-letter new-letter) "└ë┴\nG W½£\n ëTOÿ½ä¬üP Të¬`,ç" [nil 0 str size sp c new-str old-letter new-letter] 5]] 2)
  14.